home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS19.ADF / C / Emacs_Keys.C < prev    next >
C/C++ Source or Header  |  1989-01-27  |  2KB  |  62 lines
  1.  
  2. /*  File: EMACS_KEYS.C ===================================
  3.  
  4.     Greg Douglas   2 Jan 87
  5.  
  6. Description: This program will create a file that
  7.   MicroEMACS can read to redefine keyboard functions. 
  8.   Use the EXTRAS menu LOAD KEY function to load the key 
  9.   definitions file.
  10.  
  11.   Compiled using Lattice 3.10 and linked using Blink
  12. ========================================================*/
  13.  
  14. #include <stdio.h>
  15. #define  NUMKEYS 24       /* Number of key definitions  */
  16.  
  17. void main()
  18. { 
  19.  /* string array can be up to 80 characters - I used 15 */
  20.  static char func_key[][15] =
  21.                            /*--- key definitions-------*/
  22.    { "~\n",                /* Auto start string        */
  23.      "\01\13\31\15\31~\n", /* F1 = ^A^K^Y^M^Y Dup line */
  24.      "\30\04~\n",          /* F2 = ^X^D    Delete line */
  25.      "\33-~\n",            /* F3 = ESC-    Set Mark    */
  26.      "\27~\n",             /* F4 = ^W      Kill region */
  27.      "\33W~\n",            /* F5 = ESC W   Copy region */
  28.      "\31~\n",             /* F6 = ^Y      Yank buffer */
  29.      "\33V~\n",            /* F7 = ESC V   Screen up   */
  30.      "\26~\n",             /* F8 = ^V      Screen down */
  31.      "\30\23~\n",          /* F9 = ^X^S    Save file   */
  32.      "\30\06~\n",          /* F10= ^X^F    Save file/Ex*/
  33.      "\12~\n",             /* HELP = ^J    Indent      */
  34.      "\30n~\n",            /* 0 = ^Xn      Next window */
  35.      "\13~\n",             /* 1 = ^K       Del to EOL  */
  36.      "2~\n",               /* 2 = 0                    */
  37.      "\33>~\n",            /* 3 = ESC >    End of buff */
  38.      "4~\n",               /* 4 = 0                    */
  39.      "5~\n",               /* 5 = 0                    */
  40.      "6~\n",               /* 6 = 0                    */
  41.      "7~\n",               /* 7 = 0                    */
  42.      "8~\n",               /* 8 = 0                    */
  43.      "\33<~\n",            /* 9 = ESC <    Top of buff */
  44.      "\30p~\n",            /* . = ^Xp      Prev window */
  45.      "\30\7~\n",           /* Enter = ^X^G Goto Line   */
  46.      "/*   */\2\2\2\2~\n"  /* -            Comm't mark */
  47.    };
  48.  
  49.    int i;
  50.    FILE *out_file, *fopen();
  51.  
  52.    out_file = fopen("emacs_config","w");
  53.  
  54.    /* Write func_key array to file */
  55.    for (i = 0; i < NUMKEYS + 1; ++i) 
  56.         fputs(func_key[i],out_file);
  57.  
  58.    fclose(out_file);
  59. }
  60.    
  61. /* -------------- End of Program ----------------*/
  62.